home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -seriously_amiga- / shareware / programming / other / kaliosisquantrum / troll / snapshot / kqgmtst.s
Text File  |  1998-01-12  |  1KB  |  64 lines
  1. ;$Id
  2. ;fs "Includes"
  3.     incdir    "include:"
  4.     include   "Libraries/GadTools_lib.i"
  5.     include   "Libraries/GadTools.i"
  6.     include   "exec/exec_lib.i"
  7.     include   "exec/exec.i"
  8.     include   "exec/memory.i"
  9.     include   "devices/timer.i"
  10.     include   "dos/dos_lib.i"
  11.     include   "dos/dos.i"
  12.     include   "dos/dosextens.i"
  13.     include   "dos/dostags.i"
  14.     include   "intuition/intuition_lib.i"
  15.     include   "intuition/intuition.i"
  16.     include   "intuition/screens.i"
  17.     include   "graphics/graphics_lib.i"
  18.     include   "graphics/rastport.i"
  19.     include   "graphics/rpattr.i"
  20.     include   "graphics/text.i"
  21.     include   "graphics/layers_lib.i"
  22.  
  23. ;fe
  24. ;fs "Equates"
  25. exec_base EQU       4
  26. TRUE      EQU       -1
  27. FALSE     EQU       0
  28.     machine   68020
  29. ;fe
  30. ;fs "Macros"
  31. Call      macro
  32.     IFGT      NARG-1
  33.     Move.l    \2_base,a6
  34.     ENDC
  35.     Jsr       _LVO\1(a6)
  36.     endm
  37.  
  38. OpenLib   macro     ;         OpenLib   name, rev, ?fail->
  39.     Bra       \1_next
  40.     IFND      \1_base
  41. \1_base:  Ds.l      1
  42.     ENDC
  43. \1_name:  Dc.b      "\1.library",0
  44.     Even
  45. \1_next:  Lea       \1_name(pc),a1
  46.     Moveq.l   \2,d0
  47.     Call      OpenLibrary,exec
  48.     Move.l    d0,\1_base
  49.     Beq       \3
  50.     endm
  51.  
  52. CloseLib  macro
  53.     Move.l    \1_base(pc),a1
  54.     Call      CloseLibrary,exec
  55.     endm
  56. ;fe
  57. ;fs "chaine de version"
  58. VERSION:  bra.s     Init
  59.     Dc.b      "$VER: Ground Mapper for Kaliosys Quantrum 0.1 (06/12/97) ©1997, CdBS (Troll)"
  60.     Even
  61. ;fe
  62. ;fs "Code"
  63. ;fe
  64.